/*
 * This program is free software: you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free Software
 * Foundation, either version 3 of the License, or (at your option) any later
 * version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License along with
 * this program. If not, see <http://www.gnu.org/licenses/>.
 */
package net.sf.l2j.gameserver.model.actor.instance;

import java.util.NoSuchElementException;
import java.util.StringTokenizer;

import javolution.text.TextBuilder;
import net.sf.l2j.Config;
import net.sf.l2j.gameserver.SevenSigns;
import net.sf.l2j.gameserver.TradeController;
import net.sf.l2j.gameserver.ai.CtrlIntention;
import net.sf.l2j.gameserver.datatables.ClanTable;
import net.sf.l2j.gameserver.instancemanager.CastleManager;
import net.sf.l2j.gameserver.instancemanager.CastleManorManager;
import net.sf.l2j.gameserver.model.L2Clan;
import net.sf.l2j.gameserver.model.L2TradeList;
import net.sf.l2j.gameserver.model.L2World;
import net.sf.l2j.gameserver.model.item.PcInventory;
import net.sf.l2j.gameserver.network.SystemMessageId;
import net.sf.l2j.gameserver.network.serverpackets.ActionFailed;
import net.sf.l2j.gameserver.network.serverpackets.BuyList;
import net.sf.l2j.gameserver.network.serverpackets.ExShowCropInfo;
import net.sf.l2j.gameserver.network.serverpackets.ExShowCropSetting;
import net.sf.l2j.gameserver.network.serverpackets.ExShowManorDefaultInfo;
import net.sf.l2j.gameserver.network.serverpackets.ExShowSeedInfo;
import net.sf.l2j.gameserver.network.serverpackets.ExShowSeedSetting;
import net.sf.l2j.gameserver.network.serverpackets.MyTargetSelected;
import net.sf.l2j.gameserver.network.serverpackets.NpcHtmlMessage;
import net.sf.l2j.gameserver.network.serverpackets.SystemMessage;
import net.sf.l2j.gameserver.network.serverpackets.ValidateLocation;
import net.sf.l2j.gameserver.templates.L2NpcTemplate;
import net.sf.l2j.gameserver.util.Util;

/**
 * Castle Chamberlains implementation used for: - tax rate control - regional
 * manor system control - castle treasure control - ...
 */
public class L2CastleChamberlainInstance extends L2FolkInstance {
	// private static Logger _log =
	// Logger.getLogger(L2CastleChamberlainInstance.class.getName());
	protected static final int COND_ALL_FALSE = 0;
	protected static final int COND_BUSY_BECAUSE_OF_SIEGE = 1;
	protected static final int COND_OWNER = 2;

	public L2CastleChamberlainInstance(int objectId, L2NpcTemplate template) {
		super(objectId, template);
	}

	@Override
	public void onAction(L2PcInstance player) {
		if (!canTarget(player))
			return;
		player.setLastFolkNPC(this);
		// Check if the L2PcInstance already target the L2NpcInstance
		if (this != player.getTarget()) {
			// Set the target of the L2PcInstance player
			player.setTarget(this);
			// Send a Server->Client packet MyTargetSelected to the
			// L2PcInstance player
			// The player.getLevel() - getLevel() permit to display the
			// correct color in the select window
			MyTargetSelected my = new MyTargetSelected(getObjectId(), 0);
			player.sendPacket(my);
			// Send a Server->Client packet ValidateLocation to correct the
			// L2NpcInstance position and heading on the client
			player.sendPacket(new ValidateLocation(this));
		} else // Calculate the distance between the L2PcInstance and the
		// L2NpcInstance
		if (!canInteract(player))
			// Notify the L2PcInstance AI with AI_INTENTION_INTERACT
			player.getAI().setIntention(CtrlIntention.AI_INTENTION_INTERACT,
					this);
		else
			showMessageWindow(player);
		// Send a Server->Client ActionFailed to the L2PcInstance in order to
		// avoid that the client wait another packet
		player.sendPacket(ActionFailed.STATIC_PACKET);
	}

	@Override
	public void onBypassFeedback(L2PcInstance player, String command) {
		// BypassValidation Exploit plug.
		if (player.getLastFolkNPC().getObjectId() != this.getObjectId())
			return;
		int condition = validateCondition(player);
		if (condition <= COND_ALL_FALSE)
			return;
		if (condition == COND_BUSY_BECAUSE_OF_SIEGE)
			return;
		else if (condition == COND_OWNER) {
			StringTokenizer st = new StringTokenizer(command, " ");
			String actualCommand = st.nextToken(); // Get actual command
			String val = "";
			if (st.countTokens() >= 1)
				val = st.nextToken();
			if (actualCommand.equalsIgnoreCase("banish_foreigner")) {
				getCastle().banishForeigners(); // Move non-clan members off
												// castle area
				return;
			} else if (actualCommand.equalsIgnoreCase("list_siege_clans")) {
				getCastle().getSiege().listRegisterClan(player); // List current
																	// register
																	// clan
				return;
			} else if (actualCommand.equalsIgnoreCase("receive_report")) {
				NpcHtmlMessage html = new NpcHtmlMessage(getObjectId());
				html.setFile("data/html/chamberlain/chamberlain-report.htm");
				html.replace("%objectId%", String.valueOf(getObjectId()));
				L2Clan clan = ClanTable.getInstance().getClan(
						getCastle().getOwnerId());
				html.replace("%clanname%", clan.getName());
				html.replace("%clanleadername%", clan.getLeaderName());
				html.replace("%castlename%", getCastle().getName());
				{
					int currentPeriod = SevenSigns.getInstance()
							.getCurrentPeriod();
					switch (currentPeriod) {
					case SevenSigns.PERIOD_COMP_RECRUITING:
						html.replace("%ss_event%", "Quest Event Initialization");
						break;
					case SevenSigns.PERIOD_COMPETITION:
						html.replace("%ss_event%", "Competition (Quest Event)");
						break;
					case SevenSigns.PERIOD_COMP_RESULTS:
						html.replace("%ss_event%", "Quest Event Results");
						break;
					case SevenSigns.PERIOD_SEAL_VALIDATION:
						html.replace("%ss_event%", "Seal Validation");
						break;
					}
				}
				{
					int sealOwner1 = SevenSigns.getInstance().getSealOwner(1);
					switch (sealOwner1) {
					case SevenSigns.CABAL_NULL:
						html.replace("%ss_avarice%", "Not in Possession");
						break;
					case SevenSigns.CABAL_DAWN:
						html.replace("%ss_avarice%", "Lords of Dawn");
						break;
					case SevenSigns.CABAL_DUSK:
						html.replace("%ss_avarice%", "Revolutionaries of Dusk");
						break;
					}
				}
				{
					int sealOwner2 = SevenSigns.getInstance().getSealOwner(2);
					switch (sealOwner2) {
					case SevenSigns.CABAL_NULL:
						html.replace("%ss_gnosis%", "Not in Possession");
						break;
					case SevenSigns.CABAL_DAWN:
						html.replace("%ss_gnosis%", "Lords of Dawn");
						break;
					case SevenSigns.CABAL_DUSK:
						html.replace("%ss_gnosis%", "Revolutionaries of Dusk");
						break;
					}
				}
				{
					int sealOwner3 = SevenSigns.getInstance().getSealOwner(3);
					switch (sealOwner3) {
					case SevenSigns.CABAL_NULL:
						html.replace("%ss_strife%", "Not in Possession");
						break;
					case SevenSigns.CABAL_DAWN:
						html.replace("%ss_strife%", "Lords of Dawn");
						break;
					case SevenSigns.CABAL_DUSK:
						html.replace("%ss_strife%", "Revolutionaries of Dusk");
						break;
					}
				}
				player.sendPacket(html);
				return;
			} else if (actualCommand.equalsIgnoreCase("items")) {
				if (val == "")
					return;
				player.tempInvetoryDisable();
				if (Config.DEBUG)
					_log.fine("Showing chamberlain buylist");
				int buy;
				{
					int castleId = getCastle().getCastleId();
					int circlet = CastleManager.getInstance()
							.getCircletByCastleId(castleId);
					PcInventory s = player.getInventory();
					if (s.getItemByItemId(circlet) == null)
						buy = Integer.parseInt(val + "1");
					else
						buy = Integer.parseInt(val + "2");
				}
				L2TradeList list = TradeController.getInstance()
						.getBuyList(buy);
				if (list != null
						&& list.getNpcId().equals(String.valueOf(getNpcId()))) {
					BuyList bl = new BuyList(list, player.getAdena(), 0);
					player.sendPacket(bl);
				} else {
					_log.warning("player: "
							+ player.getName()
							+ " attempting to buy from chamberlain that don't have buylist!");
					_log.warning("buylist id:" + buy);
				}
				player.sendPacket(ActionFailed.STATIC_PACKET);
			} else if (actualCommand.equalsIgnoreCase("manage_siege_defender")) {
				getCastle().getSiege().listRegisterClan(player);
				return;
			} else if (actualCommand.equalsIgnoreCase("manage_vault")) {
				String filename = "data/html/chamberlain/chamberlain-vault.htm";
				int amount = 0;
				if (val.equalsIgnoreCase("deposit")) {
					try {
						amount = Integer.parseInt(st.nextToken());
					} catch (NoSuchElementException e) {
					}
					if (amount > 0
							&& (long) getCastle().getTreasury() + amount < Integer.MAX_VALUE)
						if (player.reduceAdena("Castle", amount, this, true))
							getCastle().addToTreasuryNoTax(amount);
						else
							sendPacket(new SystemMessage(
									SystemMessageId.YOU_NOT_ENOUGH_ADENA));
				} else if (val.equalsIgnoreCase("withdraw")) {
					try {
						amount = Integer.parseInt(st.nextToken());
					} catch (NoSuchElementException e) {
					}
					if (amount > 0)
						if (getCastle().getTreasury() < amount)
							filename = "data/html/chamberlain/chamberlain-vault-no.htm";
						else if (getCastle().addToTreasuryNoTax(-1 * amount))
							player.addAdena("Castle", amount, this, true);
				}
				NpcHtmlMessage html = new NpcHtmlMessage(getObjectId());
				html.setFile(filename);
				html.replace("%objectId%", String.valueOf(getObjectId()));
				html.replace("%npcname%", getName());
				html.replace("%tax_income%",
						Util.formatAdena(getCastle().getTreasury()));
				html.replace("%withdraw_amount%", Util.formatAdena(amount));
				player.sendPacket(html);
				return;
			} else if (actualCommand.equalsIgnoreCase("Clan_Gate")) {
				L2PcInstance leader;
				leader = (L2PcInstance) L2World.getInstance().findObject(
						player.getClan().getLeaderId());
				if (leader.atEvent) {
					player.sendMessage("Your leader is in an event.");
					return;
				} else if (leader.isInJail()) {
					player.sendMessage("Your leader is in Jail.");
					return;
				} else if (leader.isInOlympiadMode()) {
					player.sendMessage("Your leader is in the Olympiad now.");
					return;
				} else if (leader.inObserverMode()) {
					player.sendMessage("Your leader is in Observer Mode.");
					return;
				} else if (leader.isInDuel()) {
					player.sendMessage("Your leader is in a duel.");
					return;
				} else if (leader.isFestivalParticipant()) {
					player.sendMessage("Your leader is in a festival.");
					return;
				} else if (leader.isInParty()
						&& leader.getParty().isInDimensionalRift()) {
					player.sendMessage("Your leader is in dimensional rift.");
					return;
				} else if (leader.getClan() != null
						&& CastleManager.getInstance().getCastleByOwner(
								leader.getClan()) != null
						&& CastleManager.getInstance()
								.getCastleByOwner(leader.getClan()).getSiege()
								.getIsInProgress()) {
					player.sendMessage("Your leader is in siege, you can't go to your leader.");
					return;
				}
				int leaderx;
				int leadery;
				int leaderz;
				leaderx = leader.getX();
				leadery = leader.getY();
				leaderz = leader.getZ();
				player.teleToLocation(leaderx, leadery, leaderz);
				player.sendMessage("You have been teleported to your leader.");
			} else if (actualCommand.equalsIgnoreCase("manor")) {
				String filename = "";
				if (CastleManorManager.getInstance().isDisabled())
					filename = "data/html/npcdefault.htm";
				else {
					int cmd = Integer.parseInt(val);
					switch (cmd) {
					case 0:
						filename = "data/html/chamberlain/manor/manor.htm";
						break;
					// TODO: correct in html's to 1
					case 4:
						filename = "data/html/chamberlain/manor/manor_help00"
								+ st.nextToken() + ".htm";
						break;
					default:
						filename = "data/html/chamberlain/chamberlain-no.htm";
						break;
					}
				}
				if (filename.length() != 0) {
					NpcHtmlMessage html = new NpcHtmlMessage(getObjectId());
					html.setFile(filename);
					html.replace("%objectId%", String.valueOf(getObjectId()));
					html.replace("%npcname%", getName());
					player.sendPacket(html);
				}
				return;
			} else if (command.startsWith("manor_menu_select")) {// input string
																	// format:
																	// manor_menu_select?ask=X&state=Y&time=X
				if (CastleManorManager.getInstance().isUnderMaintenance()) {
					player.sendPacket(ActionFailed.STATIC_PACKET);
					player.sendPacket(new SystemMessage(
							SystemMessageId.THE_MANOR_SYSTEM_IS_CURRENTLY_UNDER_MAINTENANCE));
					return;
				}
				String params = command.substring(command.indexOf("?") + 1);
				StringTokenizer str = new StringTokenizer(params, "&");
				int ask = Integer.parseInt(str.nextToken().split("=")[1]);
				int state = Integer.parseInt(str.nextToken().split("=")[1]);
				int time = Integer.parseInt(str.nextToken().split("=")[1]);
				int castleId;
				if (state == -1)
					castleId = getCastle().getCastleId();
				else
					// info for requested manor
					castleId = state;
				switch (ask) { // Main action
				case 3: // Current seeds (Manor info)
					if (time == 1
							&& !CastleManager.getInstance()
									.getCastleById(castleId)
									.isNextPeriodApproved())
						player.sendPacket(new ExShowSeedInfo(castleId, null));
					else
						player.sendPacket(new ExShowSeedInfo(castleId,
								CastleManager.getInstance()
										.getCastleById(castleId)
										.getSeedProduction(time)));
					break;
				case 4: // Current crops (Manor info)
					if (time == 1
							&& !CastleManager.getInstance()
									.getCastleById(castleId)
									.isNextPeriodApproved())
						player.sendPacket(new ExShowCropInfo(castleId, null));
					else
						player.sendPacket(new ExShowCropInfo(castleId,
								CastleManager.getInstance()
										.getCastleById(castleId)
										.getCropProcure(time)));
					break;
				case 5: // Basic info (Manor info)
					player.sendPacket(new ExShowManorDefaultInfo());
					break;
				case 7: // Edit seed setup
					if (getCastle().isNextPeriodApproved())
						player.sendPacket(new SystemMessage(
								SystemMessageId.A_MANOR_CANNOT_BE_SET_UP_BETWEEN_6_AM_AND_8_PM));
					else
						player.sendPacket(new ExShowSeedSetting(getCastle()
								.getCastleId()));
					break;
				case 8: // Edit crop setup
					if (getCastle().isNextPeriodApproved())
						player.sendPacket(new SystemMessage(
								SystemMessageId.A_MANOR_CANNOT_BE_SET_UP_BETWEEN_6_AM_AND_8_PM));
					else
						player.sendPacket(new ExShowCropSetting(getCastle()
								.getCastleId()));
					break;
				}
			} else if (actualCommand.equalsIgnoreCase("operate_door")) // door
			// control
			{
				if (val != "") {
					boolean open = Integer.parseInt(val) == 1;
					while (st.hasMoreTokens())
						getCastle().openCloseDoor(player,
								Integer.parseInt(st.nextToken()), open);
				}
				NpcHtmlMessage html = new NpcHtmlMessage(getObjectId());
				html.setFile("data/html/chamberlain/" + getTemplate().npcId
						+ "-d.htm");
				html.replace("%objectId%", String.valueOf(getObjectId()));
				html.replace("%npcname%", getName());
				player.sendPacket(html);
				return;
			} else if (actualCommand.equalsIgnoreCase("tax_set")) // tax
			// rates
			// control
			{
				if (val != "")
					getCastle().setTaxPercent(player, Integer.parseInt(val));
				TextBuilder msg = new TextBuilder("<html><body>");
				msg.append(getName() + ":<br>");
				msg.append("Current tax rate: " + getCastle().getTaxPercent()
						+ "%<br>");
				msg.append("<table>");
				msg.append("<tr>");
				msg.append("<td>Change tax rate to:</td>");
				msg.append("<td><edit var=\"value\" width=40><br>");
				msg.append("<button value=\"Adjust\" action=\"bypass -h npc_%objectId%_tax_set $value\" width=80 height=15></td>");
				msg.append("</tr>");
				msg.append("</table>");
				msg.append("</center>");
				msg.append("</body></html>");
				sendHtmlMessage(player, msg.toString());
				return;
			}
		}
		super.onBypassFeedback(player, command);
	}

	private void sendHtmlMessage(L2PcInstance player, String htmlMessage) {
		NpcHtmlMessage html = new NpcHtmlMessage(getObjectId());
		html.setHtml(htmlMessage);
		html.replace("%objectId%", String.valueOf(getObjectId()));
		html.replace("%npcname%", getName());
		player.sendPacket(html);
	}

	private void showMessageWindow(L2PcInstance player) {
		player.sendPacket(ActionFailed.STATIC_PACKET);
		String filename = "data/html/chamberlain/chamberlain-no.htm";
		int condition = validateCondition(player);
		if (condition > COND_ALL_FALSE)
			if (condition == COND_BUSY_BECAUSE_OF_SIEGE)
				filename = "data/html/chamberlain/chamberlain-busy.htm"; // Busy
			else if (condition == COND_OWNER)
				filename = "data/html/chamberlain/chamberlain.htm"; // Owner
																	// message
																	// window
		NpcHtmlMessage html = new NpcHtmlMessage(getObjectId());
		html.setFile(filename);
		html.replace("%objectId%", String.valueOf(getObjectId()));
		html.replace("%npcId%", String.valueOf(getNpcId()));
		html.replace("%npcname%", getName());
		player.sendPacket(html);
	}

	protected int validateCondition(L2PcInstance player) {
		if (getCastle() != null && getCastle().getCastleId() > 0)
			if (player.getClan() != null)
				if (getCastle().getSiege().getIsInProgress())
					return COND_BUSY_BECAUSE_OF_SIEGE; // Busy because of siege
				else if (getCastle().getOwnerId() == player.getClanId() // Clan
																		// owns
																		// castle
																		// )
						&& player.isClanLeader())
					return COND_OWNER; // Owner
		return COND_ALL_FALSE;
	}
}